home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / ghostbbs.zip / SORT1.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-20  |  731b  |  35 lines
  1. program sort;
  2. type
  3.   person  = string[27];
  4.   longname = string[25];
  5.   name = string[14];
  6.  
  7.   {$I id.rec }
  8.  
  9. var idrec : sysid;
  10.     idfile : file of sysid;
  11.     userfile : text;
  12.     count    : integer;
  13.     temp     : string[5];
  14.     temps    : person;
  15.  
  16.  
  17. begin
  18. count := 0;
  19. assign(idfile,'ids.bbs');
  20. reset(idfile);
  21. assign(userfile,'user.txt');
  22. rewrite(userfile);
  23. while not eof(idfile) do
  24.   begin
  25.     read(idfile,idrec);
  26.     str(count,temp);
  27.     temps := idrec.user;
  28.     while length(temps) < 27 do temps := temps + ' ';
  29.     while length(temp) < 3 do temp := '0' + temp;
  30.     if idrec.pass <> '***' then writeln(userfile,temps,' ',temp);
  31.     count := count + 1;
  32.   end;
  33. close(idfile);
  34. close(userfile);
  35. end.